home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / toogif.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  12KB  |  188 lines
  1. 10 GOTO2015
  2. 15 POKE55,254:POKE56,31:CLR:SYS52410:GOSUB990
  3. 20 CLR:EE$="":F$="":T=8192:V=53248:E=56576:M$=CHR$(13):Q$=CHR$(34):F=255
  4. 22 POKEE,7:SYS58784:PRINT"[154][147]"
  5. 24 PRINT"WITH DISK CONTAINING FILE TO BE"
  6. 25 PRINT"CONVERTED TO GIF FORMAT IN DRIVE,"
  7. 27 PRINT"ENTER DEVICE NUMBER (ENTER 0 TO EXIT)."
  8. 30 PRINT:PRINT"  8[145]":INPUTDR:IFDR=.THEN67
  9. 32 IFDR<8ORDR>30THENGOSUB142:GOTO24
  10. 35 POKE2,35:POKE184,8:POKE185,8:POKE186,DR
  11. 37 POKE183,1:POKE187,2:POKE188,.:SYS65472
  12. 40 IFPEEK(783)AND1THENCLOSE8:PRINT"[147]?DEVICE";DR;"[157] NOT PRESENT":GOTO24
  13. 42 CLOSE8
  14. 43 PRINT"[147]"
  15. 44 PRINT"WITH DESTINATION DISK IN DRIVE TO WHICH"
  16. 45 PRINT"CONVERTED FILE IS TO BE SENT, ENTER"
  17. 47 PRINT"DEVICE NUMBER (ENTER 0 TO EXIT)."
  18. 50 PRINT:PRINT"  8[145]":INPUTDW:IFDW=.THEN67
  19. 52 IFDW<8ORDW>30THENGOSUB142:GOTO44
  20. 55 PRINT"":POKE186,DW:SYS51667
  21. 57 IFPEEK(2)=FTHENPRINT"[147]?DEVICE";DW;"[157] NOT PRESENT":GOTO44
  22. 58 IFPEEK(2)=.THEN62
  23. 59 PRINT"PRESS RETURN.":GOSUB990:GOTO43
  24. 62 PRINT"PRESS RETURN TO CONTINUE."
  25. 63 PRINT"PRESS R TO REENTER DEVICE NUMBER."
  26. 64 GETA$:IFA$=M$THEN68
  27. 65 IFA$="R"THEN43
  28. 66 GOTO64
  29. 67 POKE56,160:POKE55,.:END
  30. 68 OPEN8,DR,0,"$":PRINT"[147]LOADING DIRECTORY..."
  31. 70 POKE21000,DR:POKE21001,DW:SYS50842:IFPEEK(2)THEN75
  32. 72 PRINT"NO FILES ON DISK":GOTO24
  33. 75 SYS51650
  34. 80 SYS51624:GOSUB200
  35. 100 SYS52385
  36. 136 GETA$:IFA$<"8"ANDA$>"0"THEN144
  37. 137 IFA$="8"THENGOSUB400:GOTO145
  38. 138 IFA$="9"THEN20
  39. 140 GOTO136
  40. 142 PRINT"[147]ILLEGAL DEVICE NUMBER":RETURN
  41. 144 GOSUB300
  42. 145 IFB$="P"THEN80
  43. 146 IFB$="S"THEN20
  44. 147 OPEN8,DR,8,EE$:SYS50329
  45. 148 POKEV+17,59:POKEV+24,120:POKEE,6
  46. 149 IFA$="1"THEN175
  47. 150 IFA$="2"THENPOKE50470,53:GOTO159
  48. 151 IFA$="3"THENPOKE50470,75:GOTO159
  49. 152 IFA$="4"THENPOKE50470,53:GOTO157
  50. 153 IFA$="5"THENPOKE50470,75:GOTO157
  51. 154 IFA$="6"THENPOKE50470,53:GOTO157
  52. 155 IFA$="7"THEN166
  53. 156 POKE50470,53:POKEV+22,24:SYS51548:GOTO160
  54. 157 POKEV+22,24:SYS50447:IFA$="6"THENSYS50818:GOTO160
  55. 158 SYS50616:GOTO160
  56. 159 SYS50447
  57. 160 CLOSE8
  58. 162 GETB$:IFB$="E"THENPOKEV+32,PEEK(V+32)+1ANDF:GOTO162
  59. 163 IFB$="G"THEN185
  60. 164 IFB$="A"THEN197
  61. 165 GOTO162
  62. 166 SYS52946:POKE781,191:SYS50372
  63. 167 POKE780,84:POKE781,191:SYS50374:SYS52426:CLOSE8:POKE2,.
  64. 168 GETB$:IFB$="E"THENPOKEV+32,PEEK(V+32)+1ANDF:GOTO168
  65. 169 IFB$="G"THEN185
  66. 170 IFB$="A"THEN197
  67. 171 IFB$="[157]"THENSYS52975
  68. 172 IFB$=""THENSYS52983
  69. 174 GOTO168
  70. 175 SYS50640:CLOSE8
  71. 177 GETB$:IFB$="E"THENPOKEV+32,PEEK(V+32)+1ANDF:SYS50401
  72. 178 P=PEEK(23552)
  73. 179 IFB$="F"THENPOKE781,P+16AND240ORPAND15:SYS50372:SYS50401
  74. 180 IFB$="B"THENPOKE781,P+1AND15ORPAND240:SYS50372:SYS50401
  75. 181 IFB$="G"THEN185
  76. 182 IFB$="A"THEN197
  77. 183 GOTO177
  78. 185 OPEN8,DW,1,F$:SYS49320
  79. 186 IFA$="1"ORA$="2"ORA$="3"ORA$="7"THENGOSUB600:GOTO188
  80. 187 GOSUB650
  81. 188 SYS49830:IFPEEK(49828)THENSYS49908:GOTO190
  82. 189 SYS49152
  83. 190 SYS53220:SYS51930:IFPEEK(2)=FTHENGOSUB990:GOTO198
  84. 192 IFPEEK(2)THEN198
  85. 193 GETA$:IFA$=M$THEN20
  86. 194 IFA$="S"THENPRINT"[147]VALIDATING...":OPEN1,DW,15,"V0":CLOSE1:GOTO198
  87. 195 GOTO193
  88. 197 POKEE,7:SYS58784
  89. 198 SYS51198:IFPEEK(780)=13THENSYS50895:GOTO75
  90. 199 GOTO20
  91. 200 PRINT:PRINT"FILE CHOSEN: ";Q$;:PRINTEE$;Q$;"":RETURN
  92. 300 SYS51624:GOSUB200:ONVAL(A$)GOSUB800,810,820,830,840,850,860
  93. 318 PRINT""
  94. 319 PRINT"GIF FILE WILL BE 320 X 200 X 16.
  95. 320 [153]"PRESS I FOR INTERLACED GIF."
  96. 325 [153]"PRESS N FOR NON-INTERLACED GIF."
  97. 330 [153]"PRESS P FOR PREVIOUS MENU."
  98. 335 [161]B$:[139]B$[178]"P"[167][142]
  99. 340 [139]B$[178]"I"[167][151]49828,64:[137]350
  100. 345 [139]B$[178]"N"[167][151]49828,0:[137]350
  101. 347 [137]335
  102. 350 F$[178]EE$:[153]"LOAD"
  103. 351 B$[178][200](EE$,2):[139]B$[178]"DD"[176]B$[178]"JJ"[176]B$[178]"GG"[167]F$[178][202](EE$,3):[137]354
  104. 352 [139][198](EE$)[178]129[167]F$[178][202](EE$,2):[137]354
  105. 353 B$[178][201](EE$,4):[139]B$[178]".RLE"[176]B$[178]"MPIC"[167]F$[178][200](EE$,[195](EE$)[171]4)
  106. 354 F$[178][200](F$,12)[170]".GIF"
  107. 355 [153]"? ";F$:[158]53108
  108. 361 [159]8,DW,8,F$:[160]8:[159]8,DW,15
  109. 362 [132]8,A,B$,J,J:[160]8
  110. 363 [139]A[179][177]62[167][153]"LOADFILE EXISTS.":F$[178]EE$:[137]351
  111. 364 [139]A$[179][177]"7"[167]368
  112. 365 [158]53195:[153]"0ON"
  113. 366 [133]D:[139]D[179]0[176]D[177]33[167]365
  114. 367 [151]150,D
  115. 368 [153]"LOADWHEN YOU PRESS RETURN, THE SELECTED"
  116. 369 [153]"GRAPHICS FILE WILL BE READ INTO MEMORY"
  117. 370 [153]"AND DISPLAYED.  WHEN THE DISPLAY IS"
  118. 371 [139]A$[178]"7"[167]550
  119. 372 [153]"COMPLETE, YOU MAY STEP THOUGH EXTERIOR"
  120. 373 [139]A$[178]"1"[167]500
  121. 375 [153]"COLORS BY PRESSING E.  WHEN YOU ARE"
  122. 380 [153]"READY TO FORM THE GIF FILE, PRESS G."
  123. 382 [153]"YOU MAY ABORT THE PROCESS BY PRESSING A."
  124. 385 [139]A$[179][177]"1"[175]A$[179][177]"7"[167][153]""
  125. 387 [153]"PRESS RETURN TO PROCEED."
  126. 390 [153]"PRESS S TO START OVER."
  127. 392 [161]B$:[139]B$[178]M$[176]B$[178]"S"[167][142]
  128. 395 [137]392
  129. 400 [158]51624:[141]200
  130. 405 [153]"EXAMINING FILE...":EL[178][195](EE$):EU$[178]"MPIC"
  131. 408 E1$[178][200](EE$,2):E2$[178][201](EE$,4):[159]8,DR,8,EE$:[158]51397:[160]8
  132. 415 P[178][194](155)[170]256[172][194](156):E1[178][198](E1$):EU[178][194](150)
  133. 417 EV[178][194](139):EW[178][194](140):EX[178][194](141):EY[178][194](142):EZ[178][194](143)
  134. 420 EV$[178]"VERY LIKELY"[170]M$:EP$[178]"PROBABLY"[170]M$:EJ$[178]"COMPRESSED DOODLE."
  135. 425 EF$[178]"GRAPHICS FORMAT IS ":ED$[178]"STANDARD DOODLE."
  136. 430 EG$[178]"COMPRESSED KOALA.":ER$[178]"RLE.":ES$[178]"STANDARD KOALA."
  137. 435 EA$[178]"ADVANCED ART STUDIO.":ET$[178]"GEOPAINT."
  138. 440 [139]EU[178].[167][153]EF$;EV$;ET$:A$[178]"7":[137]318
  139. 442 [139](P[178]36[176]P[178]37)[175]EW[178].[167][153]EF$;EV$;ED$:A$[178]"2":[137]318
  140. 445 [139](P[178]40[176]P[178]41)[175]EX[178].[175]E1[178]129[167][153]EF$;EV$;ES$:A$[178]"4":[137]318
  141. 450 [139]P[179]36[175](EV[178].[176]EW[178].)[175]E1$[178]"JJ"[167][153]EF$;EV$;EJ$:A$[178]"3":[137]318
  142. 455 [139]P[179]36[175](EV[178].[176]EW[178].)[167][153]EF$;EP$;EJ$:A$[178]"3":[137]318
  143. 460 [139]P[179]40[175](EX[178].[176]EY[178].)[175]E1$[178]"GG"[167][153]EF$;EV$;EG$:A$[178]"5":[137]318
  144. 465 [139]P[179]40[175](EX[178].[176]EY[178].)[167][153]EF$;EP$;EG$:A$[178]"5":[137]318
  145. 470 [139](P[178]40[176]P[178]41)[175]EX[178].[175]E2$[178]EU$[175]EL[178]16[167][153]EF$;EV$;EA$:A$[178]"6":[137]318
  146. 475 [139]EZ[178].[175]E2$[178]".RLE"[167][153]EF$;EV$;ER$:A$[178]"1":[137]318
  147. 480 [139]EZ[178].[167][153]EF$;EP$;ER$:A$[178]"1":[137]318
  148. 482 [139](P[178]40[176]P[178]41)[175]EX[178].[167][141]700:[137]319
  149. 483 [153]"FILE DOES NOT SEEM TO BE IN ONE OF THE"
  150. 484 [153]"SUPPORTED GRAPHICS FORMATS.  PRESS P":[153]"FOR PREVIOUS MENU."
  151. 487 [161]B$:[139]B$[178]"P"[167][142]
  152. 488 [137]487
  153. 500 [153]"COLORS BY PRESSING E, FOREGROUND COLORS"
  154. 510 [153]"BY PRESSING F, AND BACKGROUND COLORS"
  155. 520 [153]"BY PRESSING B.  WHEN YOU ARE":[137]380
  156. 550 [153]"COMPLETE, YOU MAY SCROLL THE IMAGE"
  157. 560 [153]"HORIZONTALLY BY USING CURSOR LEFT/RIGHT."
  158. 570 [153]"AND YOU MAY STEP THROUGH EXTERIOR":[137]375
  159. 600 [151]49948,129:[151]49949,192:[151]49235,129:[151]49236,192
  160. 610 [151]50032,129:[151]50033,192:[151]50162,129:[151]50163,192:[142]
  161. 650 [151]49948,86:[151]49949,196:[151]49235,86:[151]49236,196
  162. 660 [151]50032,86:[151]50033,196:[151]50162,86:[151]50163,196:[142]
  163. 700 [153]"THE FILE SEEMS TO BE IN EITHER OF TWO"
  164. 710 [153]"MULTICOLOR FORMATS.  THE DECIDING DATA"
  165. 720 [153]"ARE AT THE END OF THE FILE, AND WILL"
  166. 730 [153]"BE USED TO CONVERT THE FILE CORRECTLY.":[142]
  167. 800 [153]"RLE (.RLE EXTENSION) FORMAT":[142]
  168. 810 [153]"STANDARD DOODLE (DD PREFIX) FORMAT":[142]
  169. 820 [153]"COMPRESSED DOODLE (JJ PREFIX) FORMAT":[142]
  170. 830 [153]"STANDARD KOALA (ATNWAIT PREFIX) FORMAT":[142]
  171. 840 [153]"COMPRESSED KOALA (GG PREFIX) FORMAT":[142]
  172. 850 [153]"ADVANCED ART STUDIO (MPIC SUFFIX) FORMAT":[142]
  173. 860 [153]"GEOPAINT (NON-GEOS FILE) FORMAT":[142]
  174. 990 [161]A$:[139]A$[178][199](13)[167][142]
  175. 995 [137]990
  176. 2015 [151]56,99:[156]:[153]"LOADRETURNONE MOMENT PLEASE..."
  177. 2020 P[178][194](45)[170]256[172][194](46)[171]1
  178. 2025 [139][194](P)[167]P[178]P[171]1:[137]2025
  179. 2030 [129]I[178].[164]22:[135]Y:[151]40000[170]I,Y:[130]
  180. 2035 [151]53,254:[151]54,207:[151]251,209:[151]252,231
  181. 2040 [151]254,P[173]256:[151]253,P[175]255:[158]40000
  182. 2045 P[178]P[171]6567:[151]P[171]2,.:[151]P[171]1,.:[151]251,P[175]255:[151]252,P[173]256
  183. 2050 [151]45,[194](251):[151]46,[194](252)
  184. 2055 [151]2054,48:[137]15
  185. 2060 [131]160,0,177,253,145,53,152,208
  186. 2065 [131]4,198,54,198,254,136,230,251
  187. 2070 [131]208,240,230,252,208,236,96
  188.